subroutine foo (A,B,C,M,N) 

double precision A(*), B(*), C(*), SUM1 

integer M, N, I, J 

call samp_auxiliary_routine(M,N) 
sum1=0,d0 
do I = 1, M 
surnl = sum1 + A(l) 
doJ = 1,N 

sum1 = sum1 + A((I-1)*M+J) + B((I-1)*M+J) 

enddo 

C(l) = sum1 
enddo 
return 
end 
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= samp_auxiliary_routine_(A,B) 
M int *A, *B; 

{ *A = ARRAY_SIZE; 
n *B = ARRAY_SIZE; 

: U } 



Figure 2 



supercompiler_timer() 
{ 

extern void (*supercompiler_routine)() 

/* Example usage actually calls the target subroutine 
twice, so time that:*/ 

(*supercompiIer_routine)(A, B, C, &N, &M); 
(*supercompiler_routine)(A, B, C, &N, &M); 

} 

Figure 3 



#define ARRAY_SIZE 1024 

int N=0 

intM=0 

double A[ARRAY_SIZE*ARRAY_SIZE]; 
double B[ARRAY_SIZE*ARRAY_SIZE]; 
double C[ARRAY_SIZE]; 

supercompiler_initialize() 
{ 

int i; 

/* Initialize the variables: */ 

for (i = 0; i<ARRAY_SIZE*ARRAY_SIZE ; 

{ 

A[i] = (double) i; 
B[i] = (double) i; 

} 

for ( i = 0 ; i < ARRAY_SIZE ; i++ ) C[i] = (double) i; 

/* The target subroutine needs to call an auxiliary 
routine: */ 

supercompiler_binding("samp_auxiliary_routine_",&samp 
_auxiliary_routine_); 

/* Place the caches into a known state: clean */ 

flush_cache(); 

} 

Figure 4 



SO 5 



1/ ^C^c r^A</ 





4 



Interactive menu: 

1. ) Change the location of a task 

2. ) Move all of one variable one step up 

3. ) Move all of one variable one step down 

4. ) Display tasks in a range (%d to %d) 

5 . ) Search for a given load value 

6 . ) Change the order of a sequence 

7 . ) Reset to the original ordering 

8 . ) Time an ordering 



9. ) Generate assembly code for an ordering 

10. ) Generate greg-code for an ordering 

11. ) Display tasks that cause a stack spill 

12. ) Display interaction permutation to date 

13. ) Remove all dummy assigned labels 

14. ) Add/Remove optional fxchs to all 
additions 

15. ) Add/Remove one optional fxchs to a task 

16. ) Leave the interactive menu 



Figure 6 
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